COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"Letter O from DEK"
C00004 00003	"O: The letter O"
C00005 ENDMK
C⊗;
"Letter O from DEK";
fntmode; % this causes a font to be created for the DOVER
tfmmode; % this causes a TEX information file to be produced
proofmode;
titletrace; % this prints out quoted strings when they occur
w0=3; hpen;
pts=30; % Needed at this time for maxht below
pixels=5.3; % raster units per point for TEX on the DOVER maybe
maxht top0 pts.pixels. % tallest output in raster units

subroutine darc(index i,index j,var maxwidth):
x1=x5=xi; x2=x4=1/sqrttwo [xi,xj]; x3=xj;
y1=yi; y5=yj; y3=1/2[yi,yj];
y2=1/sqrttwo [y3,yi]; y4=1/sqrttwo [y3,yj];
hpen; draw|w0|1{x3-x1,0}..|2/3[w0,maxwidth]|2{x3-x1,y3-y1}..
             |maxwidth#|3{0,y3-y1}..
             |2/3[w0,maxwidth]|4{x5-x3,y5-y3}..|w0|5{x5-x3,0}.

"O: The letter O";
charcode `O;
x1=0; y1=y3=150; x2=50; y2=0; x3=100;
sqrttwo=sqrt2; new w0; w0=3; w1=9;
call `a darc(2,1,w1);
call `b darc(2,3,w1);